print ('My first R script')

#=for comments
#load the file raw_stats
#ignoring header data

perf_data <- read.table('raw_stats.dat', TRUE)
plot(100-perf_data[,"X.idle"], type='b', xlab='Time is secs', ylab='% Utillization')

u_i <-mean(100-perf_data[,"X.idle"])
d_i <- u_i / 94

